home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / RLaB 1.15c / _rlab next >
Encoding:
Text File  |  1994-11-08  |  221 b   |  23 lines  |  [TEXT/ttxt]
  1. //
  2. // .rlab
  3. //
  4.  
  5. // Calculate pi
  6.  
  7. pi = atan(1.0)*4.0;
  8.  
  9. // Calculate machine epsilon
  10.  
  11. epsilon = function() 
  12. {
  13.   global(eps);
  14.   eps = 1.0;
  15.   while((eps + 1.0) != 1.0) 
  16.   {
  17.     eps = eps/2.0;
  18.   }
  19.   return eps;
  20. };
  21.  
  22. epsilon();
  23.